home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Mail / EnhanceMail.1.3 / Source / Toc.m < prev    next >
Encoding:
Text File  |  1996-04-07  |  1.1 KB  |  40 lines
  1. /* -*-C-*-
  2. *******************************************************************************
  3. *
  4. * File:         Toc.m
  5. * RCS:          $Header: /usr/local/lib/cvs/EnhanceMail/Toc.m,v 1.1.1.5 1996/04/07 18:23:29 cedman Exp $
  6. * Description:  
  7. * Author:       Carl Edman
  8. * Created:      Fri Oct 13 11:48:05 1995
  9. * Modified:     Sun Apr  7 12:30:54 1996 (Carl Edman) cedman@capitalist.princeton.edu
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       Experimental (Do Not Distribute)
  13. *
  14. * (C) Copyright 1995, but otherwise this file is perfect freeware.
  15. *
  16. *******************************************************************************
  17. */
  18.  
  19. #import "EnhanceMail.h"
  20. #import "Toc.h"
  21.  
  22. @implementation EnhanceToc
  23. + finishLoading:(struct mach_header *)header
  24.    {
  25.    [self poseAs:[self superclass]];
  26.    return self;
  27.    }
  28.  
  29. - (char)setState:(char)newstate forMsg:(int)msgno flush:(BOOL)flush
  30.    {
  31.    char oldstate;
  32.    
  33.    if (newstate=='f') newstate='+';
  34.    oldstate=[super setState:newstate forMsg:msgno flush:flush];
  35.    if ((oldstate=='+') && (newstate=='>'))
  36.       [super setState:'+' forMsg:msgno flush:flush];
  37.    return oldstate;
  38.    }
  39. @end
  40.